home *** CD-ROM | disk | FTP | other *** search
/ Super Shareware Collection / Super Shareware Collection.iso / os_2 / clisp.zip / MACROS3.FAS < prev    next >
Text File  |  1994-02-05  |  6KB  |  79 lines
  1. (SYSTEM::VERSION '(SYSTEM::CLISP2 12. LISP:NIL 290893.))
  2. #Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D5 37 02 30 DE 19 01) "LISP")
  3. #Y(#:TOP-LEVEL-FORM-2 #13Y(00 00 00 00 00 01 D5 37 01 30 D6 19 01) (ETHE LETF LETF*))
  4. #Y(#:TOP-LEVEL-FORM-3 #13Y(00 00 00 00 00 01 D5 37 02 30 DE 19 01) "SYSTEM")
  5. #Y(#:TOP-LEVEL-FORM-4 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) ETHE
  6.    REMOVE-OLD-DEFINITIONS MACRO
  7.    #Y(ETHE
  8.       #76Y(01 00 01 00 00 08 A9 6E 41 D5 8C 01 2C 39 9A 57 74 9B 57 57 74 37 01 6E 82 D7 AA D8 AA
  9.            D9 AD 77 02 77 02 77 01 DA DB AD DC B1 77 02 77 03 DD AE 77 02 DE DF DC B2 77 02 B1 DC
  10.            B5 77 02 77 05 77 04 77 03 5C 03 19 06 A9 2E 01 19 03
  11.           )
  12.       3. MACRO-CALL-ERROR THE LET MULTIPLE-VALUE-LIST IF %THE QUOTE VALUES-LIST ERROR
  13.       "The form ~S yielded ~:[no values~;~:*~{~S~^ ; ~}~] ,~@
  14.                              that's not of type ~S."
  15.   )  )
  16. #Y(#:TOP-LEVEL-FORM-5 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) LETF*
  17.    REMOVE-OLD-DEFINITIONS MACRO
  18.    #Y(LETF*
  19.       #55Y(01 00 01 00 00 08 3C 01 A9 6E 41 D5 8C 01 2D 1B 9A 57 74 9B 57 75 A7 5F AC 30 60 41 02
  20.            8E 00 10 00 14 AB A8 AB 2C 03 03 3E 19 08 A9 2E 01 19 03 D7 99 76 5C 01 1A 6A
  21.           )
  22.       2. MACRO-CALL-ERROR DECLARE EXPAND-LETF*
  23.   )  )
  24. #Y(#:TOP-LEVEL-FORM-6 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) EXPAND-LETF*
  25.    REMOVE-OLD-DEFINITIONS
  26.    #Y(EXPAND-LETF*
  27.       #367Y(03 00 00 00 00 04 9B 1F 80 5D 90 03 01 02 9A 20 80 A4 9A F7 79 00 91 06 AD AD 27 6A 41
  28.             02 9B 1F 80 B2 90 03 23 08 80 D5 AA 2E 0B 41 05 37 01 6E 82 D6 E1 AE AE 6F 01 17 90 05
  29.             AB 77 02 AA B3 77 02 77 02 6F 02 21 B6 E2 E3 AC 90 09 B0 37 03 6D AB B4 77 03 AE 77 03
  30.             77 01 32 02 20 78 02 60 3F 02 19 0F D5 AB 5E 01 8E 03 79 D6 5F AB AB 32 02 20 78 02 60
  31.             3F 02 19 04 83 02 01 9A 57 56 F6 99 1F 14 90 01 24 02 0F A8 6E 41 24 03 09 99 57 56 F7
  32.             D9 A8 5C 02 F6 99 1F FF 7C 90 01 24 05 FF 76 A8 6E 41 24 06 FF 6F 99 57 57 56 F7 DA 9A
  33.             57 74 A9 5C 03 F6 1A 60 9A 57 1F 06 9A 57 57 1C FF B8 DC AA 5E 01 D6 AB AB 77 02 9B 57
  34.             56 76 9B 57 57 5D 02 1A 13 8E 00 6D D6 AB AB 77 02 77 01 B0 AB 77 01 32 02 20 5D 02 14
  35.             02 1A 80 7E DF 91 04 AB B1 AC 77 01 32 02 20 78 03 00 1A 80 6D DE AB 8C 00 26 69 01 04
  36.             91 07 1A 30 90 00 7F 01 2E 0B 41 05 90 02 A8 77 02 E1 AD AD 6F 01 17 B2 30 A2 58 FF 37
  37.             01 6E 82 A7 80 09 A7 90 04 AB 37 03 6D AB 80 08 16 01 A8 80 06 16 05 98 20 4D D6 AC 6E
  38.             43 B5 DF AE 6E 43 B3 B9 E2 E3 B2 6E 43 B7 77 01 32 02 20 76 B1 31 43 78 02 77 01 32 02
  39.             20 78 03 77 01 32 02 20 5D 02 16 04 F6 02 14 3F 02 19 09
  40.            )
  41.       "LETF* code contains a dotted list, ending with ~S" LET* VALUES-LIST 2. MULTIPLE-VALUE-LIST
  42.       THE 3. "illegal syntax in LETF* binding: ~S" VALUES #.#'SYMBOLP MULTIPLE-VALUE-BIND
  43.       GET-SETF-METHOD #.#'LIST UNWIND-PROTECT PROGN
  44.   )  )
  45. #Y(#:TOP-LEVEL-FORM-7 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) LETF
  46.    REMOVE-OLD-DEFINITIONS MACRO
  47.    #Y(LETF
  48.       #256Y(01 00 01 00 00 08 3C 01 A9 6E 41 D5 8C 01 2D 1E 9A 57 74 9B 57 75 A7 5F AC 30 60 41 02
  49.             8E 00 13 00 14 5F AC 2E 03 41 04 AA 7D 43 03 1A 2B A9 2E 01 19 03 D7 99 76 5C 01 1A 67
  50.             AA 5F 1A 80 8B 90 00 9F 56 57 74 77 02 80 07 A9 AD 37 06 C4 F8 C5 F7 DB 7D 4B 05 7F 06
  51.             16 03 9B 1F 80 73 9B 56 74 A7 8B 03 06 A7 31 7C 54 1B 50 16 01 1C 80 61 1A 68 DC DD AC
  52.             AB 32 02 20 76 9C 78 02 5C 01 F7 7A 00 8F 04 80 59 DE AC B0 AB 32 02 20 78 02 5C 01 F7
  53.             7A 00 8F 06 80 4B DF AE B0 AB 32 02 20 78 02 5C 01 F7 7A 00 8F 05 3D E0 AD B0 AB 32 02
  54.             20 78 02 5C 01 F7 7A 00 8F 00 38 1A 2D 99 56 19 0F 83 01 00 57 74 9B 21 FF 77 7F 01 A8
  55.             89 92 71 16 03 AA 7D 43 03 AE 5F 8E 03 FF 97 8E 04 FF A7 8E 06 FF B5 8E 05 43 8F 00 09
  56.             8F 07 50 99 56 74 24 07 4A DF 5F B0 DD 9D 76 77 01 32 02 20 5D 02 19 0F
  57.            )
  58.       2. MACRO-CALL-ERROR DECLARE EXPAND-LETF #.#'SECOND #.#'EQ 1. UNWIND-PROTECT PROGN LET* LET
  59.       LETF*
  60.   )  )
  61. #Y(#:TOP-LEVEL-FORM-8 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) EXPAND-LETF
  62.    REMOVE-OLD-DEFINITIONS
  63.    #Y(EXPAND-LETF
  64.       #331Y(01 00 00 00 00 02 99 1F 80 4F 90 01 01 02 9A 20 80 8E 9A F7 79 00 91 04 27 6C 41 04 9D
  65.             1F 80 8E 90 05 23 07 80 CE AC 2E 0A 41 05 37 01 6E 82 DE AD AD 6F 01 17 90 04 AA 77 02
  66.             A9 B4 77 02 77 02 6F 02 21 B0 A9 90 06 AD 37 03 6D AB A2 76 AC A2 76 3F 04 19 0F D5 A9
  67.             5E 01 8E 01 79 01 04 3F 04 19 02 83 02 01 9A 57 56 F6 99 1F 14 90 01 24 01 0F A8 6E 41
  68.             24 02 09 99 57 56 F7 D8 A8 5C 02 F6 99 1F FF 92 90 01 24 04 FF 8C A8 6E 41 24 05 FF 85
  69.             99 57 57 56 F7 D9 9A 57 74 A9 5C 03 F6 1A 60 9A 57 1F 06 9A 57 57 1C FF B8 DB AA 5E 01
  70.             37 01 6E 82 A7 AD 77 02 9D 76 AE A9 77 02 9D 58 1A 2D 5F 91 06 1A 0C 90 00 37 01 6E 82
  71.             80 02 16 01 7F 00 98 20 71 16 01 A7 7C A3 00 DC 99 76 AD 77 02 9D 76 DE 91 08 AA 6F 01
  72.             17 AC 32 02 21 14 AB AB 3F 04 19 0A DD AD 8C 00 26 46 01 04 91 09 1A 30 90 00 7F 01 2E
  73.             0A 41 05 90 02 A8 77 02 DE AD AD 6F 01 17 B2 30 A2 58 FF 37 01 6E 82 A7 80 09 A7 90 04
  74.             AB 37 03 6D AB 80 08 16 01 A8 80 06 16 05 98 20 4D AB DC 9D 76 B2 77 02 A2 76 6D A2 AF
  75.             AB B0 6D A2 AB B0 6D A2 3F 04 19 0E
  76.            )
  77.       "LETF code contains a dotted list, ending with ~S" VALUES-LIST 2. MULTIPLE-VALUE-LIST THE 3.
  78.       "illegal syntax in LETF binding: ~S" VALUES #.#'SYMBOLP #.#'LIST GET-SETF-METHOD
  79.   )  )